Select Code to Download

use strict;
use warnings;
...
$str =~ s/^"|"$//g;

print "'$str'\n";

'654321_1111'