Вы можете использовать этот Perl-скрипт для своих целей:
#!/bin/perl
my $str = "moveover_virus_7483920322_virus.csvwork";
my $phone = (split /_/, $str)[2];
print "$phone\n";
протестируйте скрипт:
[iahmad@ijaz-cms ~]$ ./perltest
7483920322