#!/usr/local/bin/perl

$val = '123';

open (FILE), "input") || die "Can't open for reading: $!\n";
while ( defined ( $_ = <FILE> ) ) {
    $string = eval { $val };
    print "<$val>\n";
}