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

my $file = @ARGV[0];
if (!$file) {
      print "Hey! You didn't give me a file, sucka!\n";

}

my $out = $file;
$out =~ s/\.\w+?$/.out/;

open IN, "<$file"

   or die "File did not open.\n";
open OUT, ">$out"
    or die "File not available for write.\n";

while (<IN>) {
   
    $_ =~ s/fred/\Ul\Earry/gi;

}