#!/usr/bin/perl -w --
use strict;

# Usage: ./Pattern [n [string]]