#!perl
use strict;
use warnings;

my $s ='<Unnamed>:::1513:' =~ /<(.+)>:::(.+):/g;
print "$1;;;$2";

C:\>p.pl
Unnamed;;;1513