#!/usr/bin/perl
$_ = '!';

sub preRegex{
	s//@_/;
}

preRegex(':::::::::::', ':' x 10);

s. ::::::::.::\.::::\.' '\.:: \.:: \.::.gex;

chomp $_;
print $_;