Select Code to Download

use strict;
use warnings;
...
    $str =~ s!(?:^|/)[^\s,@;]*(?<=/)([^\s,@;]+?)(?=[\s,@;]|$)!$1!g;
    print "$str\n";
}

First: filename and filename2 end
filename,filename2
filename; filename2
filename@10:30 filename2