here is my revised code: (with parts edited out)

use warnings;
use strict;

my $file = shift or die "need filename from command-line";

open FH, '<', $file or die "could not open $file for reading: $!";

while( defined( my $line = <FH> ))
{
    chomp $line;

    $line =~ m|\@\@/| && -f $line and do
    {
        ( $filename ) = $line =~ m|\A(.+)\@\@/|;
        chomp $line;
        print "$line -- ";
        next;
    };
}
[download]