#!/usr/bin/perl 
use warnings;
use strict;
my $fh;
open($fh, "</home/me/bulk.txt")
	or die "Can't open: $!";
while (my $line = <$fh>) # was $line
{
if ($line=~/(jpg:\Z)/) {
		print "\n";
    		print $1;
    if ($line=~/(\w)/) {
    		print "\n";
		print $line;
		print "\n";
		}
	}
}