#!/usr/bin/env perl
use strict;
use warnings;


my @files = `ls *ext`;
my $wanted = $files[0];
print $wanted;
print "Done$/$/$/"; # $/ = $INPUT_RECORD_SEPARATOR ie newline

chomp($wanted);

print $wanted;
print quotemeta($wanted);
print "Done";

##</code><code>##

Weird File Name with Charactesr(1982){1996 Remaster}.ext
Done


Weird File Name with Charactesr(1982){1996 Remaster}.extWeird\ File\ Name\ with\ Charactesr\(1982\)\{1996\ 
Remaster\}\.extDone

##</code><code>##

chomp(my @files = `ls`);