#!/usr/bin/perl -w

use strict;

my $line = "/home/trix/lines";

open (L, "$line") || die "$!\n";
while (my $lines = <L>) {
  chomp $lines;
  if ($lines =~ /^1{1}\D/) {
    print "my lines are $lines\n";
  }
  else { print "Nope!\n";
       }
}