use strict;
use warnings;

my $str = q{"654321_1111"};

$str =~ s/^"|"$//g;

print "'$str'\n";

##</code><code>##

'654321_1111'