- or download this
print APPEND $line2
if $line2 =~ /$line1/;
- or download this
$line1 = '1.2.3.4';
$line2 = '111.2.3.44';
print "match\n" if $line2 =~ /$line1/;
- or download this
$line1 = '1.2.3.4';
$line2 = '11223344';
print "match\n" if $line2 =~ /$line1/;