#!/usr/bin/env perl use strict; use utf8; use warnings; my $l = <>; chomp $l; print $l =~ /575/ ? "YES\n" : "NO\n";