#!/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";