#!/usr/bin/perl
#
# usage:
#

use LWP::Simple;
use utf8;
use Encode;

my $searchnumber = $ARGV[0];
if ($searchnumber eq ""){
	print "NO";
	exit;
}
if ($searchnumber =~ /^050/){
	$searchnumber =~ s/\D//gi;
	$searchnumber = substr($searchnumber,0,7);
	
	#無料通話可能な050番号 | IP-Phone SMART http://www.fusioncom.co.jp/kojin/smart/ip-isp/ 
	my @freelist = (
 '0505500'
,'0505501'
,'0505502'
,'0505503'
,'0505504'
,'0505505'
,'0505506'
,'0505507'
,'0505508'
,'0505509'
,'0505510'
,'0505511'
,'0505512'
,'0505513'
,'0505514'
,'0505515'
,'0505516'
,'0505517'
,'0505518'
,'0505519'
,'0505520'
,'0505521'
,'0505522'
,'0505523'
,'0505524'
,'0505525'
,'0505526'
,'0505527'
,'0505528'
,'0505529'
,'0505530'
,'0505531'
,'0505532'
,'0505533'
,'0505534'
,'0505535'
,'0505536'
,'0505537'
,'0505538'
,'0505539'

,'0505798'
,'0505799'
,'0505800'
,'0505801'
,'0505802'
,'0505803'
,'0505804'
,'0505805'
,'0505806'
,'0505807'
,'0505808'
,'0505809'
,'0505810'
,'0505811'
,'0505812'
,'0505813'
,'0505814'
,'0505815'
,'0505816'
,'0505817'
,'0505818'
,'0505819'
,'0505820'
,'0505821'
,'0505822'
,'0505823'
,'0505824'
,'0505825'
,'0505826'
,'0505827'
,'0505828'
,'0505829'
,'0505830'
,'0505831'
,'0505832'
,'0505833'
,'0505834'
,'0505835'
,'0505836'
,'0505837'
,'0505838'
,'0505839'
,'0505840'
,'0505841'
,'0505842'	

,'0508000'
,'0508001'
,'0508002'
,'0508003'
,'0508004'
,'0508005'
,'0508006'
,'0508007'

,'0508009'
,'0508010'
,'0508011'
,'0508012'
,'0508013'
,'0508014'

,'0508016'

,'0508019'
,'0508020'
,'0508021'
,'0508022'

,'0508026'
,'0508027'

,'0508030'
,'0508031'

,'0508034'
,'0508035'
,'0508036'
,'0508037'
,'0508038'

,'0507788'

,'0507770'
,'0507771'
,'0507772'
,'0507773'
,'0507774'
,'0507775'

,'0507100'
,'0507101'
,'0507102'
,'0507103'
,'0507104'
,'0507105'
,'0507106'
,'0507107'
,'0507108'
,'0507109'
,'0507110'
,'0507111'
,'0507112'
,'0507113'

,'0508800'
,'0508801'
,'0508802'
,'0508803'
,'0508804'
,'0508805'
,'0508806'
,'0508807'
,'0508808'
,'0508809'
,'0508810'

,'0508200'
,'0508201'
,'0508202'
,'0508203'

,'0508008'

,'0508015'

,'0508017'
,'0508018'

,'0508023'
,'0508024'
,'0508025'

,'0508028'
,'0508029'

,'0508032'
,'0508033'

,'0506619'
,'0506620'
,'0506621'
,'0506622'

,'0502200'
,'0502201'

,'0508864'
,'0508865'
,'0508866'

	);
	
	my @freenumber = grep(/$searchnumber/,@freelist); 

	if ( scalar(@freenumber) >= 1){
		print "FREE";
		exit;
	}else{
		print "NO";
		exit;
	}
}else{
	print "NO";
	exit;
}