#!/usr/bin/perl
while (<DATA>){
    chomp;
    if ($. == 1) {
        print "'$_' matched\n";
    }
}