use strict;
use warnings;

while (<DATA>) {
    chomp;
    my $matched = /\<hell/ ? 'yes' : 'no';
    print "/\\<hell/ matches '$_'? $matched\n"
}

__DATA__
shell
hell
this is hell
this is hellish
this is <hell
this is <hellish
some shells are bad