my @time = (1, 2, 3);
my $counter = 5;
my $s =  'Today is $time[1] and you have seen this $counter times!';
warn $s;
warn eval "\"$s\"";
__END__
Today is $time[1] and you have seen this $counter times! at blah.pl line 4.
Today is 2 and you have seen this 5 times! at blah.pl line 5.