while(<INPUTFILE>)
{
   my $back = grep {$_ =~/$regexp/} <INPUTFILE>;