#!/usr/bin/perl

use strict;

while(chomp(my $file = <>))
{
        while(-l $file)
        {
                $file   = readlink $file;
        }
        print "$file\n";
}

Snippet obtained from Stackoverflow courtesy of [Loki Astari](http://stackoverflow.com/a/130428)

Perl recursive loop symbolic link final destination using Unix readlink command

link, perl

Perl