#!/usr/bin/perl
use strict;
my $file = $ARGV[0] || $ENV{'WEBROOT'} . '/images.txt';

open(IN, $file) || die "Unable to read '$file': $!\n";
while(my $line=<IN>) {
    chomp($line);

    if(my($id,$num,$hr)=$line=~/.+\/(.+)_(\d+)_HR\..+$/) {
        print join(',',$id,$num,'HR',$line), "\n";
    } elsif(my($id,$num)=$line=~/.+\/(.+)_(\d+)\..+$/) {
        print join(',',$id,$num,'LR',$line),"\n";
    } else {
        warn "Invalid line? '$line'\n";
    }
}
close(IN);