print qq[Some Content\n]; print qq[\nRestricted\n] if $user_number == 20;