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

my $test = 'aba';
print "Good\n" if $test =~ ab;