#!/usr/bin/perl

while (<>) {
  chomp;
  print qq{<h3>$_</h3><img src="$_" style="width: 200;"/><br />};
}