#!/usr/bin/perl

(my $pattern) = @ARGV;
my $regexp = $pattern;
$regexp =~ s/ //g;
$regexp =~ s/\.$//;
$regexp =~ s/x/./g;
$regexp =~ s/\[G\>\]/(G|\$)/;
$regexp =~ s/{([A-Z]+)}/[^$1]/g;
$regexp =~ s/-//g;
$regexp =~ s/\((\d+)\)/{$1}/g;
$regexp =~ s/\((\d+,\d+)\)/{$1}/g;
$regexp =~ s/\</^/;
$regexp =~ s/\>/\$/;
print "$regexp\n";