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

open (DATA, "<foo.txt") || die;
while (my $dataline = <DATA>) {
  $dataline =~ /(print '[^']*';)/ || next;
  eval $1;
  print "\n";
}