That's eval thing.

#! /usr/bin/perl -w
use strict;

my $str = '"number $idx\n"';

foreach my $idx (1 .. 10) {
    print eval($str);
}
[download]