use strict;
use warnings;
my $old_value = 'UPNOON33_A303.doc';
my $new_value = (split /_/, $old_value)[-1];
print $new_value;