Perl file regex

#!/usr/bin/perl
use Switch;


my $data_file = '/var/lib/tomcat6/webapps/storagegateway/WEB-INF/app.properties';
open DATA, "$data_file" or die "can't open $data_file $!";
my @array_of_data = <DATA>;
close (DATA);

my $target = 'starttext=';
foreach my $line ( @array_of_data )
{
  $found = $line =~ m/^($target)/;
  if( $found )
  {
    my @result = split( $target , $line  );
    my $finalresult = join( "" , @result );
    print "$finalresult";
  }
}