#!/usr/bin/perl

$pattern = shift;
$pattern =~ s/(\W)/\\\1/g;
