#!/usr/bin/perl

$filename = $ARGV[0] || '/dev/stdin';

$/=undef;
open(FILE,$filename) or die $!;
$file=<FILE>;
close(FILE);
$file=~s/(\W)/&replace($1)/eg;
print $file;

sub replace { return "(".ord($_[0]).")" }