This is text.

#!/usr/bin/perl

use strict;
use warnings;

my $foo = shift;

while (<>) {
    s/"foo"/$foo/;
    print;
}

Hello.