in reply to Reading from files

perl -ne 'my @x=split /\|\s/,$_; my $last=$x[$#x];print qq|$last\n|' Y
+OUR.File.Name.here

[download]

             All great truths begin as blasphemies.
                   ― George Bernard Shaw, writer, Nobel laureate (1856-1950)

In Section Seekers of Perl Wisdom