use strict;
use warnings;

my $license = 'Wibble';

open FILE, '<', $license || die ("Could not open the file\n");

my $find = qr'license @abc';

while (<FILE>) {
    next unless $_ =~ $find;

    print "Found!\n";
    print "$_\n";
}