format_c@linux:~/perl_samples>perl use strict; use warnings; my $password = 'testring'; my $in = ; chomp $in; eval $in; _ _ END _ _ print $password; testringformat_c@linux:~/perl_samples>