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