#!/usr/bin/env perl

use strict;
use warnings;

my $i= 0;

print "1~30の数字を入力して下さい。>>>";
$i = <STDIN>;

chomp $i;

if (($i % 3 == 0) || ($i % 10) == 3 || ($i / 10) == 3){
  print "3!\n";
}